home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SimulaHasClass.sim < prev   
Encoding:
Text File  |  1989-03-07  |  240 b   |  18 lines  |  [TEXT/MPS ]
  1. !
  2.     simcomp    SimulaHasClass
  3.     simld    SimulaHasClass
  4.     SimulaHasClass
  5. ;
  6. begin
  7.     class Simula;
  8.     begin
  9.         procedure hello;
  10.         begin
  11.             outtext("Simula does it with class");
  12.             outimage;
  13.         end;
  14.     end;
  15.     ref(Simula) say;
  16.     say:- new Simula;
  17.     say.hello;
  18. end